home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00027_Script_27 < prev    next >
Text File  |  1995-11-13  |  801b  |  36 lines
  1. on doSearchCode
  2.   
  3.   global gBaseListFind, gBottomFind, gTopFind, gResList
  4.   
  5.   go to the frame + 2
  6.   cursor 4
  7.   updateStage
  8.   
  9.   
  10.   
  11.   --
  12.   --
  13.   -- Match the info in cast 6 with gBaseListFind, copy results into cast 5
  14.   --
  15.   
  16.   set numLines = the number of lines in field gBaseListFind
  17.   set findCount = 0
  18.   set results = ""
  19.   set gResList = []
  20.   set matchText = field 6
  21.   
  22.   repeat with i = 1 to numLines
  23.     if line i of field gBaseListFind contains matchText then 
  24.       set results = results & line i of field gBaseListFind & RETURN
  25.       set findCount = findCount + 1
  26.       addAt gResList, findCount, item 2 of line i of field (gBaseListFind-1)
  27.     end if
  28.     
  29.   end repeat
  30.   
  31.   put results into field 5
  32.   
  33.   cursor -1
  34.   go to the frame - 2
  35.   
  36. end doSearchCode